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Sep-1 


MODULE BASSBUFSIZ ( ! Get buffer size 
oo = "1-003" ! File: BASBUF $1Z 17.832, Edit: J8S1003 
= 


UMePwr— 


BEGIN 
' 


PRR AA AAA AAAAAAAAAAAAAAAEAAEAEEAAAEAA AETHER ERAERAARAAEAREAAAAAERAARAAAeAe 


oO 


; ; 

fi? 

; 5 1 

3 § 1 

3 1 ie oa 
; 8 1 !« coe Ta 1 Guy (c) 1978, 1980, 1982, 1984 B * 
; 1 ie DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. « 
; 19 is : be ALL RIGHTS RESERVED. - 
PY .* 

3 i pig 1 !e rss i ee IS ein UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 1 01 1 '® ONLY IN Maen E ABOVE E OF SUCH LICENSE AND WITH THE * 
3 14 014 1 Ie INCLUSION © mF OVE Mop tai cur NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 15 0015 1 !'* COPIES ONEREOF HA NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 16 8018 1 !'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 ? SEA ! + TRANSFERRED. a 
3 'e 

3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 B05: , :* CORPORAT ION. : 
° :® 

$ Si 0098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 25 0025 1 !# * 
3 26 oos$ 1 te * 
$ e7 00 7 1 ieueeeecenenenseeeeeanecneeeenctererersetrenteetteetentnnanenenenneenesnents 
; 2 0028 #1 

3 9 94 1 

3 0 0030 1 !+4+ 

: 1 0031 1°! FACILITY: VAX-11 BASIC Miscellaneous 1/0 

3 2 O03 1 

5 Hi B08 ' ABSTRACT: 

; 3¢ 0035 1: This module contains the BASIC BUFSIZ function, which returns 

3 #6 site : the buffer size of the file open on the specified channel. 

; 38 st 4 ! ENVIRONMENT: VAX=11 User Mode 

: 40 0040 AUTHOR: John Sauter, CREATION DATE: 11-APR-1979 

: 4¢ 0046 1 | MODIFIED BY: 

ae + Sock} 1-001 - Orig 

3 - Or 

3 45 rks £s “092 = Sete up "1884 gUseR. FP. JBS 25-JUL-1979 

; «¢ 0046 1 | 1-003 = Use channel € device TT. 

eae 047 1: JBS pannel 05 n° 

s 6 048 1 i- 

: 69 0049 1 

3 50 0050 1 !<BLF/PAGE> 


rc 


BASSBUF SIZ 1h-Sep-1984 00:02:5 AX=11 Bliss-32 V4.0-76 ° 
ath ergot 88e §7:kei2s §«— HeXsare $aeieaceurse7. oS2:1 o_o 


! SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


9 ! LINKAGES: 
60 : 
61 06 
° 28) REQUIRE ‘RTLIN:OTSLNK'; ! Define Linkages 
64 491 ! 
65 138 ' TABLE OF CONTENTS: 
96 49 : 
6 494 
68 495 FORWARD ROUTINE 
9 4 BASSBUF S17; ! Return buffer size 
0 984 
71 98 } 
7 0499 ! INCLUDE FILES: 
7 0500 : 
74 0501 
o Deeg REQUIRE ‘RTLML:OTSLUB'; ! Get LUB definitions 
a4 tt REQUIRE ‘RTLML:OTSISB'; ! Get ISB definitions 
ie aig REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 


3 90 


LIBRARY ‘RTLSTARLE'; 


- 


System symbols 


233 


a a a a at es 4 4) 4 2 st 2 


0 ¢ 
34 ! MACROS: 
5 aig : 
91 : NONE 
7 14 ; 
3s 15 ' EQUATED SYMBOLS: 
9 6 . 
90 1 : NONE 
91 H 3 
4 91 ! PSECTS: 
9 920 1} ; 
Be 921 DECLARE _PSECTS (BAS); ! Declare psects for BASS facility 
38 § ' OWN STORAGE: 
9 9246 : 
38 5 : NONE 
199 $ : EXTERNAL REFERENCES: 
1 
10 EXTERNAL ROUTINE 
104 1 BASSSOPEN ZERO : NOVALUE ! Open channel 0 
105 ; BASS$$CB_POSH : JSB_CB PUSH NOVALUE, i Load register CCB 
1 BAS$$CB-POP : JSB _CB_POP NOVALUE, ' Done with register CCB 
14 : BASS$STOP : NOVALOE; ! Signal fatal error 


PASSGUFSIZ 


ERPS 


fe ts a 


rb-Seo-1984 00:02:5)  yaned1 BLisg=32 v4.00742, 


'¢ 
: The following are the error codes used in this module. 


EXTERNAL LITERAL 


BASSK_PROLOSSOR : UNSIGNED (8); ! Program lost, sorry 


SS 


a ioe é ; 
+ hs Brecon 1 8Be P9:ke: 2k Hansa te seedaasour sez 69251 


3; 117 ‘ 943 1 GLOBAL ROUT INE BASSBUFSIZ ( ' Return buffer size 

$ 118 944 1 CHA i Channel whose buffer size to return 
; 1 945 1 d= 

; 120 B68 1 

s 121 947 1 lee 

; \ ¢ oh: 1 FUNCTIONAL DESCRIPTION: 

: 124 Bey 1 i Returns the size of the buffer for the specified channel. 

* } 5 2) : If the channel is closed a zero is returned. 

; 5 0958 FORMAL PARAMETERS: 

; } § ses ! CHAN. rl.v The channel whose buffer size to return. 

: 131 957 1 | IMPLICIT INPUTS: 

. 4% ; 33 1 

: i 9444 : The LUBSW_RBUF _SIZE field of the LUB of the specified channel. 
: 135 0961 1 | IMPLICIT OUTPUTS: 

; 136 366 1: 

; it 0963 1! NONE 

; is 0964 1! 

: 139 0965 1 ! ROUTINE VALUE: 

3; 140 0966 1! 

3 13) 9444 ; The number of bytes in the buffer, as a longword integer. 

: 128 0969 1) SIDE EFFECTS: 

3 1446 0970 1! 

3: «6145 0971 1: Signals if an error is encountered. 

: 123 344 ' % BA $$(B PUSH will signal if the channel number is invalid. 

: 148 0974 1 i- 

2 149 0975 (1 

; 150 0976 § BEGIN 

3 «6151 0977 

3 136 0978 § weer | 

s 15 0979 FP 

3 6154 0980 

s 155 0981 GLOBAL REGISTER 

3 138 38 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

: 158 0984 LOCAL 

: 159 0985 BUFFER SIZE, 

: 169 oB9 : REF BLOCK C. BYTE); 

: 16 0988 FMP = FP; 

: 183 989 sgh = 
3 1% 3444 vit this is channel zero, get the user's terminal, and be sure it is open. 
. 4 99 

3 189 395 ie i CHAN EQL 0) 

: 168 994 

: 199 995 

; 170 99 ae PUSH (LUBSK -LUN pwry ety ILUN_MIN); 

: 171 997 CCB CISBSA_USER_FPJ~= .FMP CSFSL_SAVE_FPI; 

: 17 0999 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FPJ); 


3 Routine Size: 75 bytes, Routine Base: _BASSCODE + 0000 


UFSI1Z 1b-5¢ $ep-1984 
ia set 7 90:98 
174 1 
175 1001 END 
178 1 8 ELSE 
17 1 BEGIN 
178 1004 BASSS$CB_PUSH (.CHAN, LUBSK_ -b uN MIN); 
179 1005 ccB Cl eas $A_ USER_ FP) = .FMP SFSL_ SAVE FP); 
130 1 : END; 
181 100 
136 1908 '¢ 
\9? 100 i Get the buffer size from the Logical Unit Block. 
; : 3 i if the channel has not been opened. 
186 1912 BUFFER_SIZE = .CCB CLUBSW_RBUF_SIZE]; 
183 1o1z “y d ith i ccB 
! We are done w register . 
189 1018 5 i- . 
190 1016 BASSSCB_POP (); 
191 101 '¢ 
136 1018 !' ALL done. 
19 1019 le 
194 1020 RETURN (.BUFFER_SIZE); 
195 1021 END; ! end of 
TITLE 
- IDENT 
~EXTRN 
~EXTRN 
*EXTRN 
PSECT 
081C 00000 ENTRY 
54 00000000G 00 9€ 00002 MOVAB 
53 5D DO 00009 MOVL 
04 AC 05 0000C TSTL 
1E 12 OOO0F BNEQ 
50 08 CE 00011 MNEGL 
52 07 CE 00014 MNEGL 
64 16 00017 JSB 
FF4C §=6CB 0c A3 dO 00019 MOVL 
1A FC AB E8 bese BLBS 
oc AS DD 00023 PUSHL 
000000006 00 1 4 0926 CALLS 
f 1 002D BRB 
D4 OOO2F 1$: CLRL 
52 04 aC 00 00031 MOVL 
64 16 38 5 JSB 
FF4C C 0c A3 HY 037 MOVL 
be AB 3C 0003D 2%: MOVZWL 
000000006 00 is 0041 JSB 
50 52 B 0047 MOVL 
4 0004A RET 


rete Oi het -32 V4.0 
BASRTL.SRC }easeur $12. ) 


This will be zero 


BASSBUF S12 


passe ste 


BASSSOPEN ZERO, Basssce _PUSH 
BAS$$CB_POP oP 
BASSK CPROLOSSOR 


-BASSCODE,NOWRT, SHR, PIC.2 


BASSBUFSIZ, Save R2,R3,R4,R11 
PASS ace PUSH. RS 


1$ 

48. R9 

#7 

BAgSSeB. PUS 

12(FMP) > UF80 (CCB) 
-4(CCB). 2$ 


¢CFMP) 
#1. BASSSOPEN_ ZERO 


788251 


| 
0943, 


0988 
0993 


0996 


0997. 
0999 | 


0993 | 


ASSBUF SIZ -$ep-1984 00:02:5 AX-11 Bliss-32 v4. Page 
B58 19-60-1984 99:0F:2y | YBXsatTe She Seaseur sez -6$2:1 . 
H 136 19 ¢ 1 
s 9 1 1 END ! end of module BASSBUFSIZ 
; 198 18 i. 

; 4199 1025 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 75 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
H Library Statistics 
; esenenes Sysbel§ sooeseoe Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255S$DUA28:(SYSLIBISTARLET.L32;1 9776 1 0 581 00:01.2 
: COMMAND QUALIFIERS 
$ PL SSSPCREEE SEP SEL D.. SNE TEM, APT INE SE) SUOTRALE AL FOM4, LER SGASOUT SIEPED CRIS ORIENT SLE MSRC$:BASBUF SIZ/UPDATE=(ENH$:BASBUF S1Z 
pize 75 code + 0 data bytes 
ime: 00:08.3 


ope Time: 
Lines/CPU Min: 


Memory Used: 


436 
Lexemes/CPU-Min: 45155 


115 pages 


Compication Complete 
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